setdisplay(480,120,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
    finp$="fileexists.sdlbas"
    a=fileexists(finp$)
  if a<>0 then
     prints(finp$+" exists") 
   else
     prints(finp$+" doesn't exist") 
   end if
waitkey


